From: Deniz Dogan Date: Sun, 28 Aug 2011 06:07:14 +0000 (+0200) Subject: * lisp/net/rcirc.el (rcirc-insert-prev-input) X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~2449 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=92f2ac8c9c4ae07b9e33263952fe4cddbb523e45;p=emacs.git * lisp/net/rcirc.el (rcirc-insert-prev-input) (rcirc-insert-next-input): Remove unused argument. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d7586ef12e6..d1b506e48d2 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2011-08-28 Deniz Dogan + + * net/rcirc.el (rcirc-insert-prev-input) + (rcirc-insert-next-input): Remove unused argument. + 2011-08-28 Stefan Monnier * shell.el (shell-parse-pcomplete-arguments): Unquote args (bug#9160). diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el index de2c3adba95..71b3fe0c4a1 100644 --- a/lisp/net/rcirc.el +++ b/lisp/net/rcirc.el @@ -815,18 +815,19 @@ If SILENT is non-nil, do not print the message in any irc buffer." (defvar rcirc-input-ring nil) (defvar rcirc-input-ring-index 0) + (defun rcirc-prev-input-string (arg) (ring-ref rcirc-input-ring (+ rcirc-input-ring-index arg))) -(defun rcirc-insert-prev-input (arg) - (interactive "p") +(defun rcirc-insert-prev-input () + (interactive) (when (<= rcirc-prompt-end-marker (point)) (delete-region rcirc-prompt-end-marker (point-max)) (insert (rcirc-prev-input-string 0)) (setq rcirc-input-ring-index (1+ rcirc-input-ring-index)))) -(defun rcirc-insert-next-input (arg) - (interactive "p") +(defun rcirc-insert-next-input () + (interactive) (when (<= rcirc-prompt-end-marker (point)) (delete-region rcirc-prompt-end-marker (point-max)) (setq rcirc-input-ring-index (1- rcirc-input-ring-index))